unit ProdutorDM;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, db, FileUtil, LResources, Forms, Controls, Graphics,
  Dialogs, ZDataset, ZSqlUpdate, ZSequence, MainDM, QueryConditions;

type

  { TProdutorData }

  TProdutorData = class(TMainDataModule)
    DatasourceProdutor: TDatasource;
    ZQueryProdutor: TZQuery;
    ZQueryProdutorbairro: TStringField;
    ZQueryProdutorcep: TStringField;
    ZQueryProdutoremail: TStringField;
    ZQueryProdutorendereco: TStringField;
    ZQueryProdutorid_municipio: TLongintField;
    ZQueryProdutorid_produtor: TLongintField;
    ZQueryProdutornome_municipio: TStringField;
    ZQueryProdutornome_produtor: TStringField;
    ZQueryProdutortelefone: TStringField;
    ZQueryProdutoruf: TStringField;
    ZSeqProdutor: TZSequence;
    ZUpdateProdutor: TZUpdateSQL;
    procedure DataModuleCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
    procedure OpenDataSet(); override;
    procedure CloseDataSet(); override;
    procedure Search(Condicoes:TQueryConditions; Tabela: String); override;
  end;

var
  ProdutorData: TProdutorData;

implementation

uses ConnectionDM;

{ TProdutorData }

procedure TProdutorData.DataModuleCreate(Sender: TObject);
begin
  MainDataSet:=ZQueryProdutor;
end;

procedure TProdutorData.OpenDataSet;
begin
  ConnectionData.EmptyQuery(ZQueryProdutor, 'produtor');
end;

procedure TProdutorData.CloseDataSet;
begin
  ZQueryProdutor.Close();
end;

procedure TProdutorData.Search(Condicoes: TQueryConditions; Tabela: String);
begin
  ConnectionData.OpenQueryConditions(ZQueryProdutor, Tabela, Condicoes);
end;

initialization
  {$I produtordm.lrs}

end.

